// This file was decompiled using SASCM.ini published by GTAG (http://gtag.gtagaming.com/opcode-database) on 14.6.2013
{$CLEO .cs}

//-------------MAIN---------------
thread 'wdghorn' 
20@ = Audiostream.Load("cleo\horn\wdghorn.wav")

:wdghorn_50
wait 0 
if and
   Player.Defined($PLAYER_CHAR)
00E1:   player 0 pressed_key 18 
else_jump @wdghorn_50 
if or
   Actor.DrivingVehicleType($PLAYER_ACTOR, #FREIGHT)
   Actor.DrivingVehicleType($PLAYER_ACTOR, #STREAK)
else_jump @wdghorn_50 
0@ = Actor.CurrentCar($PLAYER_ACTOR)
1@ = Audiostream.Length(20@)
1@ *= 1000 
Audiostream.PerformAction(20@, STOP)
Audiostream.PerformAction(20@, PLAY)
wait 1@ 
jump @wdghorn_50 
